Első 10 darab egész szám kiíratása előltesztelő (while) ciklussal (Elso10Szam.pas)
program Elso10Szam;
uses crt;
var i, n:integer;
Egész számokkal dolgozunk, ezért integer-t adunk meg a változódeklarációban.
BEGIN
n:=10;
n = sorozatelemek száma
i:=1;
i = ciklusváltozó, valamint a kiirandó szám
while(i<=n) do begin
writeln(i);
Kiírjuk az i aktuális értékét a writeln metódussal, mely a kiírás után sort is tör.
i:=i+1;
end;
END.
Első 10 darab egész szám kiíratása for ciklussal (Elso10SzamV1.pas)
program Elso10SzamV1;
uses crt;
var i, n:integer;
BEGIN
n:=10;
for i:=1 to n do begin
A Pascal for ciklusában nem kell megadni a ciklusváltozó növelését, mivel ez magában foglalja.
writeln(i);
end;
END.
Első 10 darab egész szám kiíratása hátultesztelő (repeat - until) ciklussal (Elso10SzamV2.pas)
 |
uses crt;
var i, n:integer;
BEGIN
n:=10;
i:=1;
repeat
writeln(i);
i:=i+1;
until(i>n);
A Pascal hátultesztelő ciklusánál megfordul a ciklusfeltétel, mivel itt kilépési feltételt kell megadni.
END.